home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / misc / WarTrans.lha / hex->bin < prev    next >
Encoding:
Text File  |  1998-02-28  |  447 b   |  25 lines
  1. INPUT "Enter FileName to Convert: ",OldFile$
  2. OPEN OldFile$ FOR INPUT AS #1
  3. INPUT "Enter Filname to Create: ",NewFile$
  4. OPEN NewFile$ FOR OUTPUT AS #2 
  5. EntireFile$ = INPUT$(LOF(1),#1)
  6. FOR I = 1 TO INT(LOF(1)/2)
  7. TALL = I * 2
  8. PRINT I
  9. A$ = RIGHT$(LEFT$(EntireFile$,TALL),2)
  10.  
  11.  C$=LEFT$(A$,1)
  12.  D$=RIGHT$(A$,1)
  13.  
  14. FOR Z=0 TO 15
  15.  IF C$ = HEX$(Z) THEN  A = Z
  16.  IF D$ = HEX$(Z) THEN  B = Z
  17. NEXT Z
  18.  
  19. NR = A*16+B
  20.  PRINT #2,CHR$(NR); 
  21.  NEXT I
  22.  CLOSE #1
  23.  CLOSE #2
  24.  
  25.